home *** CD-ROM | disk | FTP | other *** search
/ Creative Review 34 / Creative-Review-CD-ROM-34.iso / pc / foo / foos.dir / 00020_Script_scrolldown = < prev    next >
Text File  |  1998-01-23  |  853b  |  42 lines
  1. on mouseDown
  2.   global thePic,spryght 
  3.   
  4.   
  5.   
  6.   --works out which little pic to move + puts it at other end of stack
  7.   if thePic>8 then 
  8.     set theMinusNumber=8
  9.   else
  10.     set theMinusNumber=-2
  11.   end if
  12.   set spryght=(10+(thePic-theMinusNumber))
  13.   --total  height of stack
  14.   set the locV of sprite spryght=the locV of sprite spryght -(114*10)
  15.   
  16.   
  17.   --when one end reached goes to other
  18.   if thePic=1 then
  19.     
  20.     set thePic=10
  21.     
  22.   else
  23.     
  24.     set thePic=thePic-1
  25.     
  26.   end if
  27.   
  28.   
  29.   --slides  down all the pictures
  30.   repeat with step=1 to 6
  31.     repeat with spright=11 to 20
  32.       set the locV of sprite spright=the locV of sprite spright +19
  33.     end repeat
  34.     updateStage
  35.   end repeat
  36.   
  37.   
  38.   --puts up big picture to match
  39.   set the member of sprite 10=string(thePic) & "large"
  40.   updateStage
  41.   
  42. end